object fmBtype: TfmBtype
  Left = 192
  Top = 114
  Caption = #21333#25454#31867#22411#27983#35272
  ClientHeight = 501
  ClientWidth = 702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object cxGroupBox1: TcxGroupBox
    Left = 0
    Top = 455
    Align = alBottom
    Style.BorderStyle = ebsNone
    Style.LookAndFeel.Kind = lfOffice11
    StyleDisabled.LookAndFeel.Kind = lfOffice11
    StyleFocused.LookAndFeel.Kind = lfOffice11
    StyleHot.LookAndFeel.Kind = lfOffice11
    TabOrder = 0
    Height = 46
    Width = 702
    object btnAll: TcxButton
      Left = 328
      Top = 16
      Width = 75
      Height = 25
      Caption = #20840#36873'(&A)'
      TabOrder = 0
      OnClick = btnAllClick
      LookAndFeel.Kind = lfOffice11
    end
    object btnCancel: TcxButton
      Left = 416
      Top = 16
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      TabOrder = 1
      OnClick = btnCancelClick
      LookAndFeel.Kind = lfOffice11
    end
    object btnOk: TcxButton
      Left = 504
      Top = 16
      Width = 75
      Height = 25
      Caption = #30830#23450'(&O)'
      TabOrder = 2
      OnClick = btnOkClick
      LookAndFeel.Kind = lfOffice11
    end
    object btnExit: TcxButton
      Left = 592
      Top = 16
      Width = 75
      Height = 25
      Caption = #36864#20986'(&X)'
      TabOrder = 3
      OnClick = btnExitClick
      LookAndFeel.Kind = lfOffice11
    end
  end
  object grd: TcxGrid
    Left = 0
    Top = 0
    Width = 702
    Height = 455
    Align = alClient
    PopupMenu = popExport
    TabOrder = 1
    LookAndFeel.Kind = lfOffice11
    object tv: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = ds
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.FocusCellOnTab = True
      OptionsCustomize.ColumnsQuickCustomization = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupByBox = False
      object tvmsystem: TcxGridDBColumn
        Caption = #27169#22359
        DataBinding.FieldName = 'bm_system'
        HeaderAlignmentHorz = taCenter
        Width = 165
      end
      object tvmname: TcxGridDBColumn
        Caption = #19994#21153#21517#31216
        DataBinding.FieldName = 'bm_name'
        HeaderAlignmentHorz = taCenter
        Width = 278
      end
      object tvmtype: TcxGridDBColumn
        Caption = #19994#21153#31867#22411
        DataBinding.FieldName = 'bm_type'
        Visible = False
        HeaderAlignmentHorz = taCenter
        Width = 104
      end
    end
    object lv: TcxGridLevel
      GridView = tv
    end
  end
  object popExport: TPopupMenu
    Left = 584
    object Excel: TMenuItem
      Caption = #23548#20986'Excel'
      OnClick = ExcelClick
    end
    object Html: TMenuItem
      Caption = #23548#20986'Html'
      OnClick = HtmlClick
    end
    object Xml: TMenuItem
      Caption = #23548#20986'Xml'
      OnClick = XmlClick
    end
    object Txt: TMenuItem
      Caption = #23548#20986'Txt'
      OnClick = TxtClick
    end
  end
  object SaveDialog: TSaveDialog
    Left = 616
  end
  object cxHintStyleController1: TcxHintStyleController
    Global = False
    HintStyle.CallOutPosition = cxbpAuto
    HintStyle.CaptionFont.Charset = DEFAULT_CHARSET
    HintStyle.CaptionFont.Color = clBlue
    HintStyle.CaptionFont.Height = -11
    HintStyle.CaptionFont.Name = 'MS Sans Serif'
    HintStyle.CaptionFont.Style = []
    HintStyle.Font.Charset = DEFAULT_CHARSET
    HintStyle.Font.Color = clRed
    HintStyle.Font.Height = -13
    HintStyle.Font.Name = 'MS Sans Serif'
    HintStyle.Font.Style = []
    HintStyle.IconType = cxhiInformation
    HintStyle.Rounded = True
    Left = 464
  end
  object qry: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'bm_system'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bm_name'
        DataType = datString
        Size = 60
      end
      item
        Name = 'bm_type'
        DataType = datString
        Size = 30
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = ClientDataModule.RemoteDataAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'b_menu'
    IndexDefs = <>
    Left = 272
    Top = 80
  end
  object ds: TDADataSource
    DataSet = qry.Dataset
    DataTable = qry
    Left = 240
    Top = 78
  end
end
